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--File: WEPosition.mesa 
--Edited by: 

Sandman March 29. 1978 2:02 PM 

Barbara July 26, 1978 9:52 AM 

DIRECTORY 

AltoDefs: FROM "altodefs" USING [BytesPerPage] , 

RectangleOefs: FROM "rectangledef s" USING [ComputeCharWidth, leftmargin]. 

StreamDefs: FROM "streamdefs" USING [ 

Equallndex, Getlndex, GrEquallndex, Setlndex], 

WindExDefs: FROM "windexdef s" USING [ 

CursorToRectangleCoords, Ge tMouseButton , JumpStrip, LDivMod, LMult, 
maxlines, Nulllndex, NullProc, Originlndex, SetCursor, SetJumpStripe, 
slop, WEDataHandle.xcursorloc, ycursorloc], 

WindowDefs: FROM "windowdefs" USING [ 

GetCurrentDisplayWindow, GetLineTable, PaintDisplayWindow, 
ResolveBugToPosition, Streamlndex, Window/Handle, xCoord, yCoord]; 

DEFINITIONS FROM StreamDefs, RectangleOefs, WindowDefs, WindExDefs; 

WEPosition: PROGRAM [WEState: WEDataHandle] 

IMPORTS StreamDefs, RectangleOefs, WindowDefs, WindExDefs 

EXPORTS WindExDefs 

SHARES StreamDefs. WindExDefs » 

BEGIN 

OPEN WEState; 

CR: CHARACTER = 15C; 
Space: CHARACTER » 40C; 

PositionFile: PUBLIC PROCEDURE[w: WindowHandle. x: xCoord, y: yCoord]» 
BEGIN 

-- Declare Locals 
height: CARDINAL; 
bytepos. eof: LONG INTEGER; 
index: Streamlndex; 

-- compute position in file and set it 
SetCursor[arrow]; 
ButtonWai t; 
SetCursor[hourglass] ; 
X ^ xcursorloct; y i- ycursorloct; 

[x, y] <- CursorToRectangleCoords[w. rectangle, x, y]; 
-- if out of jump bar then no scrolling 
IF NOT CheckForSlop[w, x, y] THEN 
BEGIN 

SetJumpStripe[w, FALSE]; 
RETURN; 
END; 
IF y < defaultlineheight+1 OR w. eof index. byte = 177777B THEN index ^ [0, 0] 
ELSE 

BEGIN OPEN AltoDefs; 

height ^ w. rectangle. ch-(def aul tl ineheight+1) ; 
y ^ MIN[LOOPHOLE[y-(defaultlineheight+l). CARDINAL], height]; 
IF y = height THEN index <- w.eofindex 
ELSE 
BEGIN 

eof <r LMult[w. eof index. page, BytesPerPage] + w. eof index, byte; 
bytepos «- (eof *y)/height; 

[index. page, index. byte] <- LDivMod[bytepos , BytesPerPage]; 
IF index. page > w.eofindex. page OR (index. page = w.eofindex. page 

AND index. byte > w.eofindex . byte) THEN index ^ w.eofindex; 
END; 
END; 
DoTheScrol l[w, index]; 
END; 

ScrollUpFile: PUBLIC PROCEDURE[w: WindowHandle. x: xCoord, y: yCoord]» 
BEGIN 

-- Declare Locals 
index: Streamlndex; 
line: INTEGER; 

-- compute position in file and set it 
SetCursor[uparrow] ; 
ButtonWaii[]; 

x <- xcursorloct+cxa; y *- ycursorloct+cxa; 
[line, , .index] *■ Rosol veBugToPosit ion[w, x, y]; 



WEPosition.mesa e-Sep~78 15:32:14 Page 



[x, y] ^ CursorToRectang1eCoords[w. rectangle, x-cxa, y-cya]; 

SetCursor[ hourglass]; 

-- if out of jump bar then no scrolling 

IF NOT CheckForSlop[w, x, y] OR line - 1 THEN 

BEGIN 

SetJumpStrip8[w, FALSE]; 

RETURN; 

END; 
DoTheScron[w, index]; 
END; 

ScrollDownFile: PUBLIC PROCEDURE[w: WindowHandle, x: xCoord. y: yCoord]- 
BEGIN 

-- Declare Locals 
index, posindex: Streamlndex; 
maxbackup, pos: LONG INTEGER; 
line.nlines: CARDINAL; 

nlines <- (w. rectangle. ch/w. ds . 1 ineheight)-!; 
-- compute position in file and set it 
SetCursor[ down arrow]; 
ButtonWait[]; 

X <- xcursorloct; y <- ycursorloct; 

[x, y] *- CursorToRectangleCoords[w. rectangle, x, y]; 
SetCursor[ hourglass]; 

line ^ MIN[L00PH0LE[MAX[1, y/w. ds . 1 ineheight] .CARDINAL] , nlines]; 
posindex ♦- SELECT w.type FROM 

scratch, scriptfile »> 

IF w.tempindex = Nulllndex THEN w.fileindex ELSE w.tempindex, 

file «> w.fileindex, 

ENDCASE »> Originlndex; 
pos <- LMul t[posindex. page, Al toDef s .BytesPerPage] + posindex. byte; 
~- if out of jump bar or first window then nop 
IF NOT CheckForSlop[w, x, y] OR Equal Index[posindex, Originlndex] THEN 

BEGIN 

SetJumpStripe[w, FALSE]; 

RETURN; 

END; 
maxbackup <- LMul t[w. rectangle. cw/ComputeCharWidth[Space,w.ds .pfont], line]; 
IF pos > maxbackup THEN 

BEGIN 

maxbackup <- pos-maxbackup; 

[index. page, index. byte] <- LDivMod[maxbackup, Al toDefs .BytesPerPage]; 

END 
ELSE index <- Originlndex; 

index ♦- GenerateLineTable[w, index , posindex, 1 ine, nl ines]; 
DoTheScrol l[w, index]; 
END; 

NormalizeSelection: PUBLIC PROCEDURE[w: WindowHandle, x: xCoord, y: yCoord]» 
BEGIN 

linestarts: DESCRIPTOR FOR ARRAY OF Streamlndex; 
maxbackup, pos: LONG INTEGER; 
index: Streamlndex; 
lastindex: Streamlndex ♦- Nulllndex; 
line, nlines, i: CARDINAL; 
nlines *- (w. rectangle, ch/w. ds. 1 ineheight)-! ; 
linestarts <- DESCRIPTOR[GetLineTable[] , nlines+1]; 
-- compute position in file and set it 
SetCursor[norm]; 
ButtonWait[]; 

X ♦- xcursorloct; y *- ycursorloct; 

[x, y] ^ CursorToRectangleCoords[w. rectangle, x, y]; 
SetCursor[hourglass]; 

line ♦- MIN[MAX[1, y/w. ds . 1 ineheight] , nlines]; 
-~ if out of jump bar then nop 
IF NOT CheckForSlop[w. x, y] THEN 

BEGIN 

SetJumpStripe[w, FALSE]; 

RETURN; 

END; 
FOR i IN [1. .nlines) DO 

IF EqualIndex[Null Index, 1 inestar ts[i]] THEN 
BEGIN lastindex ♦- w.eofindex; EXIT; END; 

REPEAT 

FINISHED «> lastindex *- 1 inestarts[nl ines] ; 

ENDLOOP; 
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--if no selection or no scroll, simply move to beginning of file 
IF Equallndex[w. selection. leftindex, Nulllndex] OR 
--selection past current end-of-file 
GrEqualIndex[w. selection. leftindex, lastindex] OR 
(Equal lndex[linestarts[0], Originlndex] 
AND line > w. selection. leftl ine) 

THEN index <~ Originlndex 
-- selection visible and below bug 
ELSE IF w. selection. leftline » AND 
(GrEqualInd ex [w. selection. leftindex, linestarts[line-l]] 
OR line <« 2 * w. selection . leftl ine) 
THEN index <- 1 inestarts[IF w. selection. leftl ine >« line 

THEN w. selection. leftline - line ELSE line - w. selection. leftl ine] 
-- adjustments necessary 
ELSE BEGIN 

pos <- LMult[w. selection. leftindex. page, Al toDef s .BytesPerPage] + 

w. selection. leftindex. byte; 
maxbackup *- LMult[w. rectangle .cw/ComputeCharWidth[Space,w. ds .pfont] , line]; 
IF pos > maxbackup THEN 
BEGIN 

maxbackup ^ pos - maxbackup; 

[index. page, index. byte] ^ LDivMod[maxbackup, AltoDefs .BytesPerPage] ; 
END 
ELSE index ♦- Originlndex; 
-- get within window range 

index <- GenerateLineTable[w, index.w. selection. leftindex, 1 ine, nlines]; 
END; 
DoTheScrol l[w, index]; 
END; 

CheckForSlop: PROCEDURE[w: WindowHandle , x: xCoord, y: yCoord] 
RETURNS[BOOLEAN]» 
BEGIN 

flag: BOOLEAN *- FALSE; 

--check if some part of cursor is in jump bar 
IF (x+slop > AND X <« JumpStrip + 15 AND y+slop > 

AND y - slop <« w. rectangle. ch) 

THEN flag ^ TRUE; 
RETURN[flag]; 
END; 

ButtonWait: PROCEDURE- 
BEGIN 

--wait until all mouse buttons are up 
UNTIL GetMouseButton[] = None DO NULL; ENDLOOP; 
RETURN; 
END; 

DoTheScroll: PROCEDURE[w: WindowHandle, index: Streamlndex]- 
BEGIN 

SELECT w.type FROM 
clear => NULL; 
random «> NULL; 
scratch, 
scriptfile => 
BEGIN 

IF index = w.tempindex THEN RETURN; 
w.tempindex <- index; 
w.ds .options .StopBottom ♦- TRUE; 
IF w = GetCurrentDisplayWindow[] THEN 
BEGIN 

PaintDisplayWindow[w] ; 
END; 
END; 
file -> 
BEGIN 

IF index « w.fileindex THEN RETURN; 
w, f ileindex <- index; 

IF w » GetCurrentDisplayWindow[] THEN 
BEGIN 

PaintDisplayWindow[w] ; 
END; 
END; 
ENDCASE; 
~~ say not in Jump mode anymore 
SetJumpStripG[w. FALSE]; 
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END; 

GenerateLineTable: PROCEDURE [w: WindowHandle , topindex, find: Streamlndex, 
line, big: CARDINAL] RETURNS [Streamlndex] - 
BEGIN 

-- declare locals 

ptr: ARRAY[0. .maxlines) OF Streamlndex; 
i, x: CARDINAL; 
char: CHARACTER; 
once: BOOLEAN <- TRUE; 
index, savedindex: Streamlndex; 
X ^ leftmargin; 

savedindex ^ Getlndex[w.f ile]; 
Setlndex[w. f ile, topindex]; 
index ^ topindex; 
FOR i IN [0..big) DO 
ptr[i] ^ Nulllndex; 
ENDLOOP; 
i ^ 0; 

-- generate the table 
WHILE NOT Equallndex[index, find] DO 
index *- Getlndex[w.f ile]; 
char <- w.f ile. get[w. file] ; 
X <- X + ComputeCharWidth[char ,w.ds .pfont]; 
IF X >= w. rectangle. cw OR char = CR THEN 
BEGIN 

X ^ leftmargin; 

IF char = CR THEN index ♦- Getlndex[w.f ile]; 
ptr[i] ♦- index; 
i <- (i + 1) MOD big; 
END; 
ENDLOOP; 
index ^ ptr[LOOPHOLE[big-l ine+i , CARDINAL] MOD big]; 
IF NOT Equallndex[index, Nulllndex] THEN topindex <- index; 
Setlndex[w. file, savedindex] ; ' 

RETURN[topindex]; 
END; 

-- initialization for position module 

InitPosition: PROCEDURE « 
BEGIN 

ScrollProcArray[RedYellowBlue] ♦- NullProc; 
ScronProcArray[RedBlue] ♦- NullProc; 
ScronProcArray[RedYel low] <- NullProc; 
ScronProcArray[Red] ^ Scrol lUpFile; 
ScronProcArray[BlueYel low] ♦- Normal izeSelection; 
ScrollProcArray[Blue] *- ScrollDownFile; 
ScronProcArray[Yellow] <- PositionFile; 
Scrol lProcArray[None] ♦- NullProc; 
END; 

--MAIN BODY CODE 

InitPosition[]; 

END. of weposition 



